unit TecnicoDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, FileUtil, LResources, Forms, Controls, Graphics,
  Dialogs, ZDataset, ZSqlUpdate, ZSequence, MainDM, QueryConditions;

type

  { TTecnicoData }

  TTecnicoData = class(TMainDataModule)
    TecnicoDatasource: TDatasource;
    TecnicoZQuery: TZQuery;
    TecnicoZQuerybairro: TStringField;
    TecnicoZQuerycep: TStringField;
    TecnicoZQuerycrea: TStringField;
    TecnicoZQueryemail: TStringField;
    TecnicoZQueryendereco: TStringField;
    TecnicoZQueryformacao: TStringField;
    TecnicoZQueryid_municipio: TLongintField;
    TecnicoZQueryid_tecnico: TLongintField;
    TecnicoZQuerynome_municipio: TStringField;
    TecnicoZQuerynome_tecnico: TStringField;
    TecnicoZQuerytelefone: TStringField;
    TecnicoZQueryuf: TStringField;
    TecnicoZSequence: TZSequence;
    TecnicoZUpdate: TZUpdateSQL;
    procedure DataModuleCreate(Sender: TObject);
    procedure OpenDataSet(); override;
    procedure CloseDataSet(); override;
    procedure Search(Condicoes: TQueryConditions; Tabela: string); override;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  TecnicoData: TTecnicoData;

implementation

uses ConnectionDM;

{ TTecnicoData }

procedure TTecnicoData.DataModuleCreate(Sender: TObject);
begin
  MainDataSet := TecnicoZQuery;
  // O Dataset Tecnico fica sempre aberto
  TecnicoZQuery.Open();
end;

procedure TTecnicoData.OpenDataSet;
begin
  // O Dataset Tecnico fica sempre aberto
end;

procedure TTecnicoData.CloseDataSet;
begin
  // O Dataset Tecnico fica sempre aberto
end;

procedure TTecnicoData.Search(Condicoes: TQueryConditions; Tabela: string);
begin
  // Sem busca
end;

initialization
  {$I tecnicodm.lrs}

end.

